with GNAT.IO;

--
-- constants and values used by application
--

package body App_Configuration is

   --
   -- display a message to standard error stream
   --

   procedure Error_Message( Message : Error_Output_Type )
   is

      use GNAT.IO;

   begin

      Set_Output( Standard_Error );

      Put_Line( Ascii.LF
              & Message
              & Ascii.LF );

      Set_Output( Standard_Output );

   end Error_Message;


   --
   -- display a message to standard out stream
   --

   procedure Info_Message( Message : Debug_Output_Type )
   is

      use GNAT.IO;

   begin

      Put_Line( Ascii.LF
                & Message
                & Ascii.LF );

   end Info_Message;


end App_Configuration;